(compilation-next-error-locus): Use compilation-error-message instead of

"Moved past last error" when MOVE is 1 (default value).

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2ec9edae9e9d910294cab1677d7733fe4a196d17..a9544f2585fb68f69317f78b3fabc400c4a497de 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -853,9 +853,10 @@ The current buffer should be the desired compilation output buffer."
       (while
          (if (null next-error)
              (progn
-               (if move (if (> move 0)
-                            (error "Moved past last error")
-                          (error "Moved back past first error")))
+               (and move (/= move 1)
+                    (error (if (> move 0)
+                               "Moved past last error")
+                           "Moved back past first error"))
                (compilation-forget-errors)
                (error (concat compilation-error-message
                               (and (get-buffer-process (current-buffer))